home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / fido / RFS275.lha / rexx / STARTRFS.rexx < prev    next >
OS/2 REXX Batch file  |  1994-07-14  |  447b  |  9 lines
  1. /**/
  2. Parse Arg wplport Line baud host_address Infile Listed remote_address remote_sysop
  3. if arg() = 0 then EXIT
  4. xfq_site_object = XfqGetAddress(remote_address)
  5. if XfqHoldMailer(xfq_site_object) then address "AREXX" "ram:rexx/RFS.rexx" wplport Line baud host_address Infile Listed remote_address remote_sysop
  6. else address "LOGPROC" 'Putlog 'wplport'wpl' time() Line script 'HOLD Failed:'XFQERRORMSG remote_address
  7. drop XFQERRORCODE XFQERRORMSG
  8. exit
  9.